home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / falcon / wd2d_pro / sources / call_wax.s next >
Text File  |  1995-04-27  |  2KB  |  88 lines
  1. MOD_BOX=1
  2. MOD_BOX2=0
  3. MOD_WIND=1
  4. MOD_MENU=0
  5. MOD_HEXA=0
  6. MOD_DECI=0
  7. MOD_ACC=0
  8.  
  9. NR_WINDOWS_MAX=1
  10.  
  11.     include guw_mac3.s
  12.     output d:\assemble\sources.wax\direct4d.pro\call_wpr.app
  13.     
  14. debut:    init_prg 64
  15.  
  16.     appl_find #name_wax_professional
  17.     move d0,num_app
  18.     bmi .erreur
  19.  
  20.     clr d0
  21.     bset #EVNT_KEYBD,d0
  22.     bsr traite_evenement_gem
  23.  
  24.     move.w global+4,my_num1
  25.     appl_write num_app,#fin_message1-message1,#message1
  26.     tst d0
  27.     beq.s .erreur
  28.  
  29.     clr d0
  30.     bset #EVNT_KEYBD,d0
  31.     bsr traite_evenement_gem
  32.  
  33.     move.w global+4,my_num2
  34.     appl_write num_app,#16,#message2
  35.     tst d0
  36.     beq.s .erreur
  37.  
  38.     clr d0
  39.     bset #EVNT_KEYBD,d0
  40.     bsr traite_evenement_gem
  41.  
  42.     move.w global+4,my_num3
  43.     appl_write num_app,#fin_message3-message3,#message3
  44.     tst d0
  45.     beq.s .erreur
  46.  
  47.     clr d0
  48.     bset #EVNT_KEYBD,d0
  49.     bsr traite_evenement_gem
  50.  
  51. .erreur:    restore_prg
  52.  
  53.     section DATA
  54. message1:    dc.w 224
  55. my_num1:    dc.w 0
  56.     dc.w fin_message1-deb_message1-5*2
  57. deb_message1:dc.b 'play=d:\mepris.dvw',0
  58. fin_message1:
  59.  
  60. message2:    dc.w 224
  61. my_num2:    dc.w 0
  62.     dc.w 0
  63.     dc.b 'stop',0
  64. fin_message2:
  65.  
  66. message3:    dc.w 224
  67. my_num3:    dc.w 0
  68.     dc.w fin_message3-deb_message3-5*2
  69. deb_message3:dc.b 'conv=6,g:\boogiewl.trk,h:\boogiewl.dvs,'
  70. fin_message3:
  71.  
  72. name_wax_professional:
  73.     dc.b 'WD2D_PRO',0
  74.  even
  75.  
  76.     section BSS
  77. num_app:    ds.w 1
  78.  
  79.     END
  80.  
  81. ; dc.b 'conv=1,file1.trk,file2.trk,'    ; stéréo -> mono
  82. ; dc.b 'conv=2,file1.trk,file2.trk,file3.trk,'    ; stéréo -> R & L
  83. ; dc.b 'conv=3,file1.trk,file2.trk,'    ; mono -> stéréo
  84. ; dc.b 'conv=4,table.tab,'        ; choose compression table
  85. ; dc.b 'conv=5,file1.trk,file2.dvs,'    ; TRK stéréo -> DVS
  86. ; dc.b 'conv=6,file1.trk,file2.dvs,'    ; TRK mono -> DVS
  87. ; dc.b 'conv=7,file1.dvs,file2.trk,'    ; DVS -> TRK
  88.